PAGE 1 D1:DUNGEN1.M65 10 ; 20 ; *** DUNGEONLORDS *** 30 ; (Revision B) 40 ; 50 ; By Brian Douglas Bradley 60 ; August 1, 1986 70 ; 80 ; VARIABLES: 90 ; --------- 0100 ; =0080 0110 LOA = 128 =0081 0120 HIA = 129 =0082 0130 LO = 130 =0083 0140 HI = 131 =0084 0150 LOC = 132 =0085 0160 HIC = 133 =0086 0170 V1 = 134 =0087 0180 V2 = 135 =0088 0190 V3 = 136 =0089 0200 V4 = 137 =008A 0210 V5 = 138 =008B 0220 V6 = 139 =008C 0230 V7 = 140 =008D 0240 V8 = 141 =008E 0250 V9 = 142 =008F 0260 XCL = 143 =0090 0270 YRW = 144 =0091 0280 CLX = 145 =0092 0290 RWY = 146 =0093 0300 XPOS = 147 =0094 0310 YPOS = 148 =0095 0320 MNX = 149 =0096 0330 MNY = 150 =0097 0340 MNXA = 151 =0098 0350 MNYA = 152 =0099 0360 STK = 153 =009A 0370 STK1 = 154 =009B 0380 TRGR = 155 =009C 0390 MVE = 156 =009D 0400 GX1 = 157 =009E 0410 GY1 = 158 =009F 0420 GX2 = 159 =00A0 0430 GY2 = 160 =00A1 0440 BLTX = 161 =00A2 0450 BLTY = 162 =00A3 0460 BLTXY = 163 =00A4 0470 TXY = 164 =00A5 0480 JUMP = 165 =00A6 0490 CNTR = 166 =00A7 0500 XCNT = 167 =00A8 0510 TIMES = 168 =00A9 0520 SPEED = 169 =00AA 0530 PLAY = 170 =00AB 0540 SNGX = 171 =00AC 0550 SPOT = 172 =00AD 0560 SPOT2 = 173 =00AE 0570 OVER = 174 PAGE 2 D1:DUNGEN1.M65 =00AF 0580 KEY = 175 =00B0 0590 SHOMN = 176 =00B1 0600 LVL = 177 =00B2 0610 LIVES = 178 =00B3 0620 NOW = 179 =00B6 0630 DLO = 182 =00B7 0640 DHI = 183 =00B8 0650 BDX = 184 =00D8 0660 BDY = 216 =0600 0670 BDXY = 1536 =0620 0680 BDG = 1568 =0640 0690 ALV = 1600 =2FB4 0700 DLIST = 12212 =388E 0710 SCRS = 14478 =E45F 0720 SYSVBV = 58463 =E45C 0730 SEVBV = 58460 0740 ; 0750 ; INITIALIZE PROGRAM 0760 ; 0000 0770 *= 8775 2247 70707070 0780 .BYTE 112,112,112,112,112,71 224B 7047 224D 6622467A 0790 .BYTE 102,34,70,122,34,112 2251 2270 2253 7047A222 0800 .BYTE 112,71,162,34,70,142 2257 468E 2259 22707070 0810 .BYTE 34,112,112,112,70,182 225D 46B6 225F 22460039 0820 .BYTE 34,70,0,57,65,71,34 2263 414722 2266 20202020 0830 .BYTE " dungeonlords " 226A 64756E67 226E 656F6E6C 2272 6F726473 2276 20202020 227A 20206279 0840 .BYTE " by brian bradley " 227E 20627269 2282 616E2062 2286 7261646C 228A 65792020 228E 20707265 0850 .BYTE " press start to play" 2292 73732073 2296 74617274 229A 20746F20 229E 706C6179 22A2 20202020 0860 .BYTE " çáíå ïöåò " 22A6 2020E7E1 22AA EDE520EF 22AE F6E5F220 22B2 20202020 22B6 20202020 0870 .BYTE " óãïòå " 22BA 20202020 22BE F3E3EFF2 22C2 E5202020 22C6 20202020 22CA A900 0880 LDA #0 22CC A200 0890 LDX #0 22CE 0900 RPT PAGE 3 D1:DUNGEN1.M65 22CE A000 0910 LDY #0 22D0 0920 RPTA 22D0 990039 0930 STA $3900,Y 22D3 C8 0940 INY 22D4 C000 0950 CPY #0 22D6 D0F8 0960 BNE RPTA 22D8 EED222 0970 INC RPTA+2 22DB E8 0980 INX 22DC E010 0990 CPX #16 22DE D0EE 1000 BNE RPT 22E0 A938 1010 LDA #56 22E2 8D07D4 1020 STA 54279 22E5 A97E 1030 LDA #126 22E7 8D2F02 1040 STA 559 22EA A903 1050 LDA #3 22EC 8D1DD0 1060 STA 53277 22EF 8D0FD2 1070 STA 53775 22F2 A900 1080 LDA #0 22F4 8DC802 1090 STA 712 22F7 A000 1100 LDY #0 22F9 1110 STR 22F9 998000 1120 STA 128,Y 22FC C8 1130 INY 22FD C080 1140 CPY #128 22FF D0F8 1150 BNE STR 2301 A908 1160 LDA #8 2303 8DC202 1170 STA 706 2306 A977 1180 LDA #119 2308 8D00D0 1190 STA 53248 230B 8D01D0 1200 STA 53249 230E 8D02D0 1210 STA 53250 2311 20AB27 1220 JSR INT 2314 A9D4 1230 LDA #212 2316 8DC002 1240 STA 704 2319 8DC602 1250 STA 710 231C 1260 STRT 231C A9E0 1270 LDA #224 231E 8DF402 1280 STA 756 2321 A900 1290 LDA #0 2323 8DC402 1300 STA 708 2326 8DC702 1310 STA 711 2329 A947 1320 LDA #71 232B 8D3002 1330 STA 560 232E A946 1340 LDA #70 2330 8DC102 1350 STA 705 2333 8DC502 1360 STA 709 2336 A922 1370 LDA #34 2338 8D3102 1380 STA 561 233B 1390 SRT 233B AD1FD0 1400 LDA 53279 233E C906 1410 CMP #6 2340 D0F9 1420 BNE SRT 2342 A9FA 1430 LDA #250 2344 8DC702 1440 STA 711 2347 A930 1450 LDA #48 2349 8DF402 1460 STA 756 234C A9B4 1470 LDA #180 234E 8D3002 1480 STA 560 PAGE 4 D1:DUNGEN1.M65 2351 A92F 1490 LDA #47 2353 8D3102 1500 STA 561 2356 A901 1510 LDA #1 2358 85B1 1520 STA LVL 235A 20AC2E 1530 JSR LP 235D 4C1C23 1540 JMP STRT 1550 ; 1560 ; Display remaining lives 1570 ; and clear away all monsters 1580 ; 2360 1590 ITA 2360 206623 1600 JSR ITF 2363 4C7A23 1610 JMP ITE 2366 1620 ITF 2366 A201 1630 LDX #1 2368 A937 1640 LDA #55 236A 1650 ITB 236A 38 1660 SEC 236B E4B2 1670 CPX LIVES 236D 9002 1680 BCC ITC 236F A900 1690 LDA #0 2371 1700 ITC 2371 9D8438 1710 STA SCRS-10,X 2374 E8 1720 INX 2375 E008 1730 CPX #8 2377 D0F1 1740 BNE ITB 2379 60 1750 RTS 237A 1760 ITE 237A A200 1770 LDX #0 237C A900 1780 LDA #0 237E 85AE 1790 STA OVER 2380 1800 IT 2380 9D2006 1810 STA BDG,X 2383 BD4006 1820 LDA ALV,X 2386 C900 1830 CMP #0 2388 F00E 1840 BEQ ITD 238A B5B8 1850 LDA BDX,X 238C 858F 1860 STA XCL 238E B5D8 1870 LDA BDY,X 2390 8590 1880 STA YRW 2392 20CA28 1890 JSR CLR 2395 9D4006 1900 STA ALV,X 2398 1910 ITD 2398 E8 1920 INX 2399 E020 1930 CPX #32 239B D0E3 1940 BNE IT 239D 20D42A 1950 JSR PCLR 23A0 A908 1960 LDA #8 23A2 8595 1970 STA MNX 23A4 A930 1980 LDA #48 23A6 8596 1990 STA MNY 23A8 60 2000 RTS 2010 ; 2020 ; Create random maze 2030 ; 23A9 2040 W 23A9 206023 2050 JSR ITA 23AC A5B1 2060 LDA LVL PAGE 5 D1:DUNGEN1.M65 23AE 38 2070 SEC 23AF E901 2080 SBC #1 23B1 4A 2090 LSR A 23B2 4A 2100 LSR A 23B3 85A9 2110 STA SPEED 23B5 E6A9 2120 INC SPEED 23B7 0A 2130 ASL A 23B8 0A 2140 ASL A 23B9 0A 2150 ASL A 23BA 0A 2160 ASL A 23BB 8586 2170 STA V1 23BD A906 2180 LDA #6 23BF 38 2190 SEC 23C0 E586 2200 SBC V1 23C2 8DC502 2210 STA 709 23C5 20D42A 2220 JSR PCLR 23C8 A900 2230 LDA #0 23CA 85AF 2240 STA KEY 23CC 858B 2250 STA V6 23CE 8588 2260 STA V3 23D0 AD0AD2 2270 LDA 53770 23D3 2907 2280 AND #7 23D5 858C 2290 STA V7 23D7 AD0AD2 2300 LDA 53770 23DA 2907 2310 AND #7 23DC 18 2320 CLC 23DD 6908 2330 ADC #8 23DF 858D 2340 STA V8 23E1 2350 W2 23E1 A200 2360 LDX #0 23E3 2370 W1 23E3 868F 2380 STX XCL 23E5 A588 2390 LDA V3 23E7 8590 2400 STA YRW 23E9 202926 2410 JSR X96 23EC A900 2420 LDA #0 23EE 9180 2430 STA (LOA),Y 23F0 E8 2440 INX 23F1 E040 2450 CPX #64 23F3 D0EE 2460 BNE W1 23F5 E688 2470 INC V3 23F7 A915 2480 LDA #21 23F9 C588 2490 CMP V3 23FB D0E4 2500 BNE W2 23FD A200 2510 LDX #0 23FF 2520 W3 23FF A900 2530 LDA #0 2401 8590 2540 STA YRW 2403 868F 2550 STX XCL 2405 20F725 2560 JSR PTW 2408 A914 2570 LDA #20 240A 8590 2580 STA YRW 240C 20F725 2590 JSR PTW 240F E8 2600 INX 2410 E8 2610 INX 2411 E03E 2620 CPX #62 2413 D0EA 2630 BNE W3 2415 A202 2640 LDX #2 PAGE 6 D1:DUNGEN1.M65 2417 2650 W4 2417 A900 2660 LDA #0 2419 858F 2670 STA XCL 241B 8690 2680 STX YRW 241D 20F725 2690 JSR PTW 2420 A93C 2700 LDA #60 2422 858F 2710 STA XCL 2424 20F725 2720 JSR PTW 2427 E8 2730 INX 2428 E8 2740 INX 2429 E014 2750 CPX #20 242B D0EA 2760 BNE W4 242D A938 2770 LDA #56 242F 858F 2780 STA XCL 2431 A202 2790 LDX #2 2433 2800 W49 2433 8690 2810 STX YRW 2435 20F725 2820 JSR PTW 2438 E8 2830 INX 2439 E8 2840 INX 243A E012 2850 CPX #18 243C D0F5 2860 BNE W49 243E 202727 2870 JSR GR 2441 A900 2880 LDA #0 2443 858F 2890 STA XCL 2445 A904 2900 LDA #4 2447 8590 2910 STA YRW 2449 206C27 2920 JSR GR2 244C A902 2930 LDA #2 244E 858F 2940 STA XCL 2450 8590 2950 STA YRW 2452 20F725 2960 JSR PTW 2455 A904 2970 LDA #4 2457 858F 2980 STA XCL 2459 20F725 2990 JSR PTW 245C A900 3000 LDA #0 245E 858A 3010 STA V5 2460 A904 3020 LDA #4 2462 8589 3030 STA V4 2464 3040 W43 2464 A204 3050 LDX #4 2466 3060 W45 2466 868F 3070 STX XCL 2468 A589 3080 LDA V4 246A 8590 3090 STA YRW 246C A900 3100 LDA #0 246E 858A 3110 STA V5 2470 202926 3120 JSR X96 2473 B180 3130 LDA (LOA),Y 2475 C900 3140 CMP #0 2477 F003 3150 BEQ W46 2479 4C8425 3160 JMP W15 247C 3170 W46 247C 20F725 3180 JSR PTW 247F AD0AD2 3190 LDA 53770 2482 2903 3200 AND #3 2484 C903 3210 CMP #3 2486 D007 3220 BNE W5 PAGE 7 D1:DUNGEN1.M65 2488 C690 3230 DEC YRW 248A C690 3240 DEC YRW 248C 4C4625 3250 JMP WUP 248F 3260 W5 248F C902 3270 CMP #2 2491 D007 3280 BNE W6 2493 E690 3290 INC YRW 2495 E690 3300 INC YRW 2497 4C4625 3310 JMP WUP 249A 3320 W6 249A C901 3330 CMP #1 249C D007 3340 BNE W7 249E C68F 3350 DEC XCL 24A0 C68F 3360 DEC XCL 24A2 4CA924 3370 JMP WLR 24A5 3380 W7 24A5 E68F 3390 INC XCL 24A7 E68F 3400 INC XCL 24A9 3410 WLR 24A9 A58F 3420 LDA XCL 24AB 8591 3430 STA CLX 24AD A590 3440 LDA YRW 24AF 8592 3450 STA RWY 24B1 38 3460 SEC 24B2 E904 3470 SBC #4 24B4 8590 3480 STA YRW 24B6 202926 3490 JSR X96 24B9 B180 3500 LDA (LOA),Y 24BB C900 3510 CMP #0 24BD F002 3520 BEQ W8 24BF E68A 3530 INC V5 24C1 3540 W8 24C1 A0BF 3550 LDY #191 24C3 B180 3560 LDA (LOA),Y 24C5 C900 3570 CMP #0 24C7 F002 3580 BEQ W9 24C9 E68A 3590 INC V5 24CB 3600 W9 24CB A0C2 3610 LDY #194 24CD B180 3620 LDA (LOA),Y 24CF C900 3630 CMP #0 24D1 F002 3640 BEQ W10 24D3 E68A 3650 INC V5 24D5 3660 W10 24D5 A58A 3670 LDA V5 24D7 38 3680 SEC 24D8 C902 3690 CMP #2 24DA 9003 3700 BCC W11 24DC 4C8425 3710 JMP W15 24DF 3720 W11 24DF A591 3730 LDA CLX 24E1 858F 3740 STA XCL 24E3 A592 3750 LDA RWY 24E5 8590 3760 STA YRW 24E7 202926 3770 JSR X96 24EA B180 3780 LDA (LOA),Y 24EC C900 3790 CMP #0 24EE F003 3800 BEQ WGO PAGE 8 D1:DUNGEN1.M65 24F0 4C8425 3810 JMP W15 24F3 3820 WGO 24F3 A58B 3830 LDA V6 24F5 E68B 3840 INC V6 24F7 C58C 3850 CMP V7 24F9 D005 3860 BNE W30 24FB A9AF 3870 LDA #175 24FD 4C1825 3880 JMP W36 2500 3890 W30 2500 C58D 3900 CMP V8 2502 D005 3910 BNE W39 2504 A9AF 3920 LDA #175 2506 4C1825 3930 JMP W36 2509 3940 W39 2509 AD0AD2 3950 LDA 53770 250C 293F 3960 AND #63 250E 38 3970 SEC 250F C5B1 3980 CMP LVL 2511 9003 3990 BCC W40 2513 4C4025 4000 JMP W32 2516 4010 W40 2516 A9A7 4020 LDA #167 2518 4030 W36 2518 201E25 4040 JSR W91 251B 4C8425 4050 JMP W15 251E 4060 W91 251E 858A 4070 STA V5 2520 202926 4080 JSR X96 2523 A58A 4090 LDA V5 2525 9180 4100 STA (LOA),Y 2527 A001 4110 LDY #1 2529 E68A 4120 INC V5 252B A58A 4130 LDA V5 252D 9180 4140 STA (LOA),Y 252F A060 4150 LDY #96 2531 E68A 4160 INC V5 2533 A58A 4170 LDA V5 2535 9180 4180 STA (LOA),Y 2537 A061 4190 LDY #97 2539 E68A 4200 INC V5 253B A58A 4210 LDA V5 253D 9180 4220 STA (LOA),Y 253F 60 4230 RTS 2540 4240 W32 2540 20F725 4250 JSR PTW 2543 4C8425 4260 JMP W15 2546 4270 WUP 2546 A58F 4280 LDA XCL 2548 8591 4290 STA CLX 254A C68F 4300 DEC XCL 254C C68F 4310 DEC XCL 254E A590 4320 LDA YRW 2550 8592 4330 STA RWY 2552 C690 4340 DEC YRW 2554 C690 4350 DEC YRW 2556 202926 4360 JSR X96 2559 B180 4370 LDA (LOA),Y 255B C900 4380 CMP #0 PAGE 9 D1:DUNGEN1.M65 255D F002 4390 BEQ W12 255F E68A 4400 INC V5 2561 4410 W12 2561 A0BF 4420 LDY #191 2563 B180 4430 LDA (LOA),Y 2565 C900 4440 CMP #0 2567 F002 4450 BEQ W13 2569 E68A 4460 INC V5 256B 4470 W13 256B A080 4480 LDY #128 256D E681 4490 INC HIA 256F B180 4500 LDA (LOA),Y 2571 C900 4510 CMP #0 2573 F002 4520 BEQ W14 2575 E68A 4530 INC V5 2577 4540 W14 2577 A58A 4550 LDA V5 2579 38 4560 SEC 257A C902 4570 CMP #2 257C 9003 4580 BCC W41 257E 4C8425 4590 JMP W15 2581 4600 W41 2581 4CDF24 4610 JMP W11 2584 4620 W15 2584 E8 4630 INX 2585 E8 4640 INX 2586 E8 4650 INX 2587 E8 4660 INX 2588 E038 4670 CPX #56 258A F003 4680 BEQ W16 258C 4C6624 4690 JMP W45 258F 4700 W16 258F A589 4710 LDA V4 2591 18 4720 CLC 2592 6904 4730 ADC #4 2594 8589 4740 STA V4 2596 C914 4750 CMP #20 2598 F003 4760 BEQ W20 259A 4C6424 4770 JMP W43 259D 4780 W20 259D A93A 4790 LDA #58 259F 858F 4800 STA XCL 25A1 A906 4810 LDA #6 25A3 8590 4820 STA YRW 25A5 A9B3 4830 LDA #179 25A7 201E25 4840 JSR W91 25AA A908 4850 LDA #8 25AC 8590 4860 STA YRW 25AE A9B3 4870 LDA #179 25B0 201E25 4880 JSR W91 25B3 A938 4890 LDA #56 25B5 858F 4900 STA XCL 25B7 A900 4910 LDA #0 25B9 8590 4920 STA YRW 25BB 206C27 4930 JSR GR2 25BE A93A 4940 LDA #58 25C0 858F 4950 STA XCL 25C2 A902 4960 LDA #2 PAGE 10 D1:DUNGEN1.M65 25C4 8590 4970 STA YRW 25C6 A5B1 4980 LDA LVL 25C8 2903 4990 AND #3 25CA C900 5000 CMP #0 25CC D005 5010 BNE W17 25CE A9E8 5020 LDA #232 25D0 4CD525 5030 JMP W18 25D3 5040 W17 25D3 A9F4 5050 LDA #244 25D5 5060 W18 25D5 201E25 5070 JSR W91 25D8 A5B1 5080 LDA LVL 25DA 2907 5090 AND #7 25DC C900 5100 CMP #0 25DE D016 5110 BNE W19 25E0 A90A 5120 LDA #10 25E2 8590 5130 STA YRW 25E4 A9B3 5140 LDA #179 25E6 201E25 5150 JSR W91 25E9 A936 5160 LDA #54 25EB 858F 5170 STA XCL 25ED A902 5180 LDA #2 25EF 8590 5190 STA YRW 25F1 A9AF 5200 LDA #175 25F3 201E25 5210 JSR W91 25F6 5220 W19 25F6 60 5230 RTS 25F7 5240 PTW 25F7 202926 5250 JSR X96 25FA 201726 5260 JSR LTW 25FD A000 5270 LDY #0 25FF 9180 5280 STA (LOA),Y 2601 202026 5290 JSR RTW 2604 A001 5300 LDY #1 2606 9180 5310 STA (LOA),Y 2608 202026 5320 JSR RTW 260B A060 5330 LDY #96 260D 9180 5340 STA (LOA),Y 260F 201726 5350 JSR LTW 2612 A061 5360 LDY #97 2614 9180 5370 STA (LOA),Y 2616 60 5380 RTS 2617 5390 LTW 2617 AD0AD2 5400 LDA 53770 261A 2903 5410 AND #3 261C 18 5420 CLC 261D 6901 5430 ADC #1 261F 60 5440 RTS 2620 5450 RTW 2620 AD0AD2 5460 LDA 53770 2623 2903 5470 AND #3 2625 18 5480 CLC 2626 6905 5490 ADC #5 2628 60 5500 RTS 2629 5510 X96 2629 A900 5520 LDA #0 262B 8586 5530 STA V1 262D 8587 5540 STA V2 PAGE 11 D1:DUNGEN1.M65 262F 8581 5550 STA HIA 2631 A590 5560 LDA YRW 2633 8580 5570 STA LOA 2635 A000 5580 LDY #0 2637 5590 L1 2637 A581 5600 LDA HIA 2639 0A 5610 ASL A 263A 8581 5620 STA HIA 263C A580 5630 LDA LOA 263E 0A 5640 ASL A 263F 9003 5650 BCC L2 2641 E681 5660 INC HIA 2643 18 5670 CLC 2644 5680 L2 2644 8580 5690 STA LOA 2646 C8 5700 INY 2647 C005 5710 CPY #5 2649 D008 5720 BNE L3 264B A580 5730 LDA LOA 264D 8586 5740 STA V1 264F A581 5750 LDA HIA 2651 8587 5760 STA V2 2653 5770 L3 2653 C006 5780 CPY #6 2655 D0E0 5790 BNE L1 2657 A581 5800 LDA HIA 2659 18 5810 CLC 265A 6587 5820 ADC V2 265C 8581 5830 STA HIA 265E A580 5840 LDA LOA 2660 18 5850 CLC 2661 6586 5860 ADC V1 2663 9003 5870 BCC L4 2665 E681 5880 INC HIA 2667 18 5890 CLC 2668 5900 L4 2668 8580 5910 STA LOA 266A A581 5920 LDA HIA 266C 18 5930 CLC 266D 6940 5940 ADC #64 266F 8581 5950 STA HIA 2671 A580 5960 LDA LOA 2673 18 5970 CLC 2674 658F 5980 ADC XCL 2676 9002 5990 BCC L5 2678 E681 6000 INC HIA 267A 6010 L5 267A 18 6020 CLC 267B 6914 6030 ADC #20 267D 9002 6040 BCC L6 267F E681 6050 INC HIA 2681 6060 L6 2681 8580 6070 STA LOA 2683 A000 6080 LDY #0 2685 60 6090 RTS 6100 ; 6110 ; Who can see man? 6120 ; PAGE 12 D1:DUNGEN1.M65 2686 6130 ST 2686 201927 6140 JSR ST97 2689 A981 6150 LDA #129 268B 858A 6160 STA V5 268D C68F 6170 DEC XCL 268F 6180 ST2 268F 20DF26 6190 JSR ST99 2692 C68F 6200 DEC XCL 2694 C900 6210 CMP #0 2696 F0F7 6220 BEQ ST2 2698 A58F 6230 LDA XCL 269A 858B 6240 STA V6 269C 201927 6250 JSR ST97 269F A901 6260 LDA #1 26A1 858A 6270 STA V5 26A3 E68F 6280 INC XCL 26A5 6290 ST3 26A5 20DF26 6300 JSR ST99 26A8 E68F 6310 INC XCL 26AA C900 6320 CMP #0 26AC F0F7 6330 BEQ ST3 26AE A58F 6340 LDA XCL 26B0 858C 6350 STA V7 26B2 201927 6360 JSR ST97 26B5 A9E0 6370 LDA #224 26B7 858A 6380 STA V5 26B9 C690 6390 DEC YRW 26BB 6400 ST4 26BB 20DF26 6410 JSR ST99 26BE C690 6420 DEC YRW 26C0 C900 6430 CMP #0 26C2 F0F7 6440 BEQ ST4 26C4 A590 6450 LDA YRW 26C6 858D 6460 STA V8 26C8 201927 6470 JSR ST97 26CB A960 6480 LDA #96 26CD 858A 6490 STA V5 26CF E690 6500 INC YRW 26D1 6510 ST5 26D1 20DF26 6520 JSR ST99 26D4 E690 6530 INC YRW 26D6 C900 6540 CMP #0 26D8 F0F7 6550 BEQ ST5 26DA A590 6560 LDA YRW 26DC 858E 6570 STA V9 26DE 60 6580 RTS 26DF 6590 ST99 26DF A58A 6600 LDA V5 26E1 297F 6610 AND #127 26E3 8586 6620 STA V1 26E5 A58A 6630 LDA V5 26E7 2980 6640 AND #128 26E9 C900 6650 CMP #0 26EB F00E 6660 BEQ Z1 26ED A580 6670 LDA LOA 26EF 38 6680 SEC 26F0 E586 6690 SBC V1 26F2 B002 6700 BCS Z2 PAGE 13 D1:DUNGEN1.M65 26F4 C681 6710 DEC HIA 26F6 6720 Z2 26F6 8580 6730 STA LOA 26F8 4C0627 6740 JMP Z4 26FB 6750 Z1 26FB A580 6760 LDA LOA 26FD 18 6770 CLC 26FE 6586 6780 ADC V1 2700 9002 6790 BCC Z3 2702 E681 6800 INC HIA 2704 6810 Z3 2704 8580 6820 STA LOA 2706 6830 Z4 2706 A000 6840 LDY #0 2708 B180 6850 LDA (LOA),Y 270A E8 6860 INX 270B C900 6870 CMP #0 270D F007 6880 BEQ ST98 270F C937 6890 CMP #55 2711 F003 6900 BEQ ST98 2713 6910 ST96 2713 A901 6920 LDA #1 2715 60 6930 RTS 2716 6940 ST98 2716 A900 6950 LDA #0 2718 60 6960 RTS 2719 6970 ST97 2719 A200 6980 LDX #0 271B A593 6990 LDA XPOS 271D 858F 7000 STA XCL 271F A594 7010 LDA YPOS 2721 8590 7020 STA YRW 2723 202926 7030 JSR X96 2726 60 7040 RTS 7050 ; 7060 ; Set up Transporters 7070 ; 2727 7080 GR 2727 AD0AD2 7090 LDA 53770 272A 2903 7100 AND #3 272C 18 7110 CLC 272D 6903 7120 ADC #3 272F 0A 7130 ASL A 2730 0A 7140 ASL A 2731 858F 7150 STA XCL 2733 18 7160 CLC 2734 6902 7170 ADC #2 2736 859D 7180 STA GX1 2738 AD0AD2 7190 LDA 53770 273B 2903 7200 AND #3 273D 0A 7210 ASL A 273E 0A 7220 ASL A 273F 8590 7230 STA YRW 2741 18 7240 CLC 2742 6902 7250 ADC #2 2744 859E 7260 STA GY1 2746 206C27 7270 JSR GR2 2749 AD0AD2 7280 LDA 53770 PAGE 14 D1:DUNGEN1.M65 274C 2903 7290 AND #3 274E 18 7300 CLC 274F 6909 7310 ADC #9 2751 0A 7320 ASL A 2752 0A 7330 ASL A 2753 858F 7340 STA XCL 2755 18 7350 CLC 2756 6902 7360 ADC #2 2758 859F 7370 STA GX2 275A AD0AD2 7380 LDA 53770 275D 2903 7390 AND #3 275F 0A 7400 ASL A 2760 0A 7410 ASL A 2761 8590 7420 STA YRW 2763 18 7430 CLC 2764 6902 7440 ADC #2 2766 85A0 7450 STA GY2 2768 206C27 7460 JSR GR2 276B 60 7470 RTS 276C 7480 GR2 276C A911 7490 LDA #17 276E 201E25 7500 JSR W91 2771 E690 7510 INC YRW 2773 E690 7520 INC YRW 2775 A909 7530 LDA #9 2777 201E25 7540 JSR W91 277A C690 7550 DEC YRW 277C C690 7560 DEC YRW 277E E68F 7570 INC XCL 2780 E68F 7580 INC XCL 2782 A915 7590 LDA #21 2784 201E25 7600 JSR W91 2787 E68F 7610 INC XCL 2789 E68F 7620 INC XCL 278B A919 7630 LDA #25 278D 201E25 7640 JSR W91 2790 E690 7650 INC YRW 2792 E690 7660 INC YRW 2794 A90D 7670 LDA #13 2796 201E25 7680 JSR W91 2799 E690 7690 INC YRW 279B E690 7700 INC YRW 279D 20F725 7710 JSR PTW 27A0 A58F 7720 LDA XCL 27A2 38 7730 SEC 27A3 E904 7740 SBC #4 27A5 858F 7750 STA XCL 27A7 20F725 7760 JSR PTW 27AA 60 7770 RTS 7780 ; 7790 ; VERTICAL BLANK 7800 ; (Used for smooth-scroll) 7810 ; 27AB 7820 INT 27AB A0C5 7830 LDY #VBK&255 27AD A227 7840 LDX #VBK/256 27AF A906 7850 LDA #6 27B1 205CE4 7860 JSR SEVBV PAGE 15 D1:DUNGEN1.M65 27B4 7870 INT2 27B4 A200 7880 LDX #0 27B6 A99D 7890 LDA #157 27B8 7900 AGN2 27B8 9D8E38 7910 STA SCRS,X 27BB E8 7920 INX 27BC E007 7930 CPX #7 27BE D0F8 7940 BNE AGN2 27C0 A933 7950 LDA #51 27C2 8585 7960 STA HIC 27C4 60 7970 RTS 27C5 7980 VBK 27C5 A940 7990 LDA #64 27C7 85B7 8000 STA DHI 27C9 A595 8010 LDA MNX 27CB 4A 8020 LSR A 27CC 4A 8030 LSR A 27CD 29FE 8040 AND #254 27CF 85B6 8050 STA DLO 27D1 A004 8060 LDY #4 27D3 8070 AGN 27D3 A5B6 8080 LDA DLO 27D5 99B42F 8090 STA DLIST,Y 27D8 C8 8100 INY 27D9 A5B7 8110 LDA DHI 27DB 99B42F 8120 STA DLIST,Y 27DE A5B6 8130 LDA DLO 27E0 18 8140 CLC 27E1 6960 8150 ADC #96 27E3 9002 8160 BCC NXT 27E5 E6B7 8170 INC DHI 27E7 8180 NXT 27E7 85B6 8190 STA DLO 27E9 C8 8200 INY 27EA C8 8210 INY 27EB C046 8220 CPY #70 27ED D0E4 8230 BNE AGN 27EF A595 8240 LDA MNX 27F1 2907 8250 AND #7 27F3 4907 8260 EOR #7 27F5 8D04D4 8270 STA 54276 27F8 4C5FE4 8280 JMP SYSVBV 27FB 8290 FND 27FB 20FE27 8300 JSR FND1A 27FE 8310 FND1A 27FE 8588 8320 STA V3 2800 290C 8330 AND #12 2802 C900 8340 CMP #0 2804 D003 8350 BNE FND1 2806 4C1828 8360 JMP FND3 2809 8370 FND1 2809 C908 8380 CMP #8 280B D002 8390 BNE FND2 280D E68F 8400 INC XCL 280F 8410 FND2 280F C904 8420 CMP #4 2811 D015 8430 BNE FND5 2813 C68F 8440 DEC XCL PAGE 16 D1:DUNGEN1.M65 2815 4C2828 8450 JMP FND5 2818 8460 FND3 2818 A588 8470 LDA V3 281A 2903 8480 AND #3 281C C902 8490 CMP #2 281E D002 8500 BNE FND4 2820 E690 8510 INC YRW 2822 8520 FND4 2822 C901 8530 CMP #1 2824 D002 8540 BNE FND5 2826 C690 8550 DEC YRW 2828 8560 FND5 2828 A588 8570 LDA V3 282A 60 8580 RTS 282B 8590 REVERS 282B 8588 8600 STA V3 282D 290C 8610 AND #12 282F C900 8620 CMP #0 2831 F002 8630 BEQ RVS1 2833 490C 8640 EOR #12 2835 8650 RVS1 2835 8586 8660 STA V1 2837 A588 8670 LDA V3 2839 2903 8680 AND #3 283B C900 8690 CMP #0 283D F002 8700 BEQ RVS2 283F 4903 8710 EOR #3 2841 8720 RVS2 2841 18 8730 CLC 2842 6586 8740 ADC V1 2844 60 8750 RTS 2845 8760 PLY 2845 A908 8770 LDA #8 2847 85AB 8780 STA SNGX 2849 60 8790 RTS 8800 ; 8810 ; Found Treasure! 8820 ; 284A 8830 FDT 284A 204528 8840 JSR PLY 284D A2A8 8850 LDX #168 284F 86AA 8860 STX PLAY 2851 A2C0 8870 LDX #192 2853 8684 8880 STX LOC 2855 A204 8890 LDX #4 2857 20DE28 8900 JSR SCR 285A A9AB 8910 LDA #171 285C 201E25 8920 JSR W91 285F A9AB 8930 LDA #171 2861 60 8940 RTS 8950 ; 8960 ; Found Key! 8970 ; 2862 8980 FDK 2862 A5AF 8990 LDA KEY 2864 C901 9000 CMP #1 2866 D001 9010 BNE FDL 2868 60 9020 RTS PAGE 17 D1:DUNGEN1.M65 2869 9030 FDL 2869 204528 9040 JSR PLY 286C A2A8 9050 LDX #168 286E 86AA 9060 STX PLAY 2870 A2D0 9070 LDX #208 2872 8684 9080 STX LOC 2874 A901 9090 LDA #1 2876 85AF 9100 STA KEY 2878 20CA28 9110 JSR CLR 287B A900 9120 LDA #0 287D 60 9130 RTS 9140 ; 9150 ; Found Keyhole! 9160 ; 287E 9170 FDH 287E A5AF 9180 LDA KEY 2880 C900 9190 CMP #0 2882 F015 9200 BEQ FDI 2884 204528 9210 JSR PLY 2887 A2A8 9220 LDX #168 2889 86AA 9230 STX PLAY 288B A2C8 9240 LDX #200 288D 8684 9250 STX LOC 288F A900 9260 LDA #0 2891 85AF 9270 STA KEY 2893 20CA28 9280 JSR CLR 2896 A900 9290 LDA #0 2898 60 9300 RTS 2899 9310 FDI 2899 A9AB 9320 LDA #171 289B 60 9330 RTS 9340 ; 9350 ; Release Prisoner 9360 ; 289C 9370 FDP 289C 204528 9380 JSR PLY 289F A2A8 9390 LDX #168 28A1 86AA 9400 STX PLAY 28A3 A2E0 9410 LDX #224 28A5 8684 9420 STX LOC 28A7 20CA28 9430 JSR CLR 28AA A203 9440 LDX #3 28AC 20DE28 9450 JSR SCR 28AF A900 9460 LDA #0 28B1 858F 9470 STA XCL 28B3 A902 9480 LDA #2 28B5 8590 9490 STA YRW 28B7 206C27 9500 JSR GR2 28BA A902 9510 LDA #2 28BC 858F 9520 STA XCL 28BE A904 9530 LDA #4 28C0 8590 9540 STA YRW 28C2 A9F4 9550 LDA #244 28C4 201E25 9560 JSR W91 28C7 A900 9570 LDA #0 28C9 60 9580 RTS 9590 ; 9600 ; Clear Location PAGE 18 D1:DUNGEN1.M65 9610 ; 28CA 9620 CLR 28CA 202926 9630 JSR X96 28CD A900 9640 LDA #0 28CF 9180 9650 STA (LOA),Y 28D1 A001 9660 LDY #1 28D3 9180 9670 STA (LOA),Y 28D5 A060 9680 LDY #96 28D7 9180 9690 STA (LOA),Y 28D9 A061 9700 LDY #97 28DB 9180 9710 STA (LOA),Y 28DD 60 9720 RTS 9730 ; 9740 ; Handle Score 9750 ; 28DE 9760 SCR 28DE A901 9770 LDA #1 28E0 8586 9780 STA V1 28E2 9790 SCR1 28E2 A586 9800 LDA V1 28E4 C901 9810 CMP #1 28E6 D02D 9820 BNE SCR3 28E8 E002 9830 CPX #2 28EA D014 9840 BNE SCR4 28EC E6B2 9850 INC LIVES 28EE 8686 9860 STX V1 28F0 206623 9870 JSR ITF 28F3 204528 9880 JSR PLY 28F6 A9E0 9890 LDA #224 28F8 8584 9900 STA LOC 28FA A9A8 9910 LDA #168 28FC 85AA 9920 STA PLAY 28FE A686 9930 LDX V1 2900 9940 SCR4 2900 A900 9950 LDA #0 2902 8586 9960 STA V1 2904 BD8E38 9970 LDA SCRS,X 2907 18 9980 CLC 2908 6901 9990 ADC #1 290A C9A7 010000 CMP #167 290C D004 010010 BNE SCR2 290E A99D 010020 LDA #157 2910 E686 010030 INC V1 2912 010040 SCR2 2912 9D8E38 010050 STA SCRS,X 2915 010060 SCR3 2915 CA 010070 DEX 2916 E0FF 010080 CPX #255 2918 D0C8 010090 BNE SCR1 291A 60 010100 RTS 010110 ; 010120 ; Move Man Around 010130 ; 291B 010140 MN 291B A992 010150 LDA #146 291D 8586 010160 STA V1 291F A5B3 010170 LDA NOW 2921 38 010180 SEC PAGE 19 D1:DUNGEN1.M65 2922 C980 010190 CMP #128 2924 9004 010200 BCC ZX 2926 A944 010210 LDA #68 2928 8586 010220 STA V1 292A 010230 ZX 292A A514 010240 LDA 20 292C 2907 010250 AND #7 292E 18 010260 CLC 292F 6586 010270 ADC V1 2931 010280 ZZ 2931 8DC402 010290 STA 708 2934 AD00D3 010300 LDA 54016 2937 290C 010310 AND #12 2939 490C 010320 EOR #12 293B C900 010330 CMP #0 293D F005 010340 BEQ MN1 293F 8599 010350 STA STK 2941 4C4D29 010360 JMP MN2 2944 010370 MN1 2944 AD00D3 010380 LDA 54016 2947 2903 010390 AND #3 2949 4903 010400 EOR #3 294B 8599 010410 STA STK 294D 010420 MN2 294D A595 010430 LDA MNX 294F 4A 010440 LSR A 2950 4A 010450 LSR A 2951 29FE 010460 AND #254 2953 8593 010470 STA XPOS 2955 A595 010480 LDA MNX 2957 2907 010490 AND #7 2959 C900 010500 CMP #0 295B F003 010510 BEQ MN3 295D 4C112A 010520 JMP MN14 2960 010530 MN3 2960 A596 010540 LDA MNY 2962 4A 010550 LSR A 2963 4A 010560 LSR A 2964 4A 010570 LSR A 2965 29FE 010580 AND #254 2967 8594 010590 STA YPOS 2969 A596 010600 LDA MNY 296B 290F 010610 AND #15 296D C900 010620 CMP #0 296F F003 010630 BEQ MN4 2971 4C112A 010640 JMP MN14 2974 010650 MN4 2974 A59B 010660 LDA TRGR 2976 C900 010670 CMP #0 2978 F037 010680 BEQ MN7 297A A599 010690 LDA STK 297C C900 010700 CMP #0 297E F031 010710 BEQ MN7 2980 A593 010720 LDA XPOS 2982 858F 010730 STA XCL 2984 A594 010740 LDA YPOS 2986 8590 010750 STA YRW 2988 A599 010760 LDA STK PAGE 20 D1:DUNGEN1.M65 298A 20FB27 010770 JSR FND 298D 202926 010780 JSR X96 2990 B180 010790 LDA (LOA),Y 2992 C9A7 010800 CMP #167 2994 D003 010810 BNE MN5 2996 204A28 010820 JSR FDT 2999 010830 MN5 2999 C9AF 010840 CMP #175 299B D003 010850 BNE MN6 299D 206228 010860 JSR FDK 29A0 010870 MN6 29A0 C900 010880 CMP #0 29A2 F009 010890 BEQ MNA 29A4 38 010900 SEC 29A5 C934 010910 CMP #52 29A7 9008 010920 BCC MN7 29A9 C9AB 010930 CMP #171 29AB F004 010940 BEQ MN7 29AD 010950 MNA 29AD A599 010960 LDA STK 29AF 859C 010970 STA MVE 29B1 010980 MN7 29B1 A593 010990 LDA XPOS 29B3 858F 011000 STA XCL 29B5 A594 011010 LDA YPOS 29B7 8590 011020 STA YRW 29B9 A59C 011030 LDA MVE 29BB 20FB27 011040 JSR FND 29BE 202926 011050 JSR X96 29C1 B180 011060 LDA (LOA),Y 29C3 C9A7 011070 CMP #167 29C5 D003 011080 BNE MN8 29C7 204A28 011090 JSR FDT 29CA 011100 MN8 29CA C9AF 011110 CMP #175 29CC D003 011120 BNE MN9 29CE 206228 011130 JSR FDK 29D1 011140 MN9 29D1 C9B3 011150 CMP #179 29D3 D003 011160 BNE MN10 29D5 207E28 011170 JSR FDH 29D8 011180 MN10 29D8 C9F4 011190 CMP #244 29DA D002 011200 BNE MN11 29DC E6AE 011210 INC OVER 29DE 011220 MN11 29DE C9E8 011230 CMP #232 29E0 D003 011240 BNE MN11A 29E2 209C28 011250 JSR FDP 29E5 011260 MN11A 29E5 C900 011270 CMP #0 29E7 F010 011280 BEQ MN13 29E9 38 011290 SEC 29EA C934 011300 CMP #52 29EC 9007 011310 BCC MN12 29EE C9AB 011320 CMP #171 29F0 F003 011330 BEQ MN12 29F2 4CF929 011340 JMP MN13 PAGE 21 D1:DUNGEN1.M65 29F5 011350 MN12 29F5 A900 011360 LDA #0 29F7 859C 011370 STA MVE 29F9 011380 MN13 29F9 A595 011390 LDA MNX 29FB 858F 011400 STA XCL 29FD A596 011410 LDA MNY 29FF 8590 011420 STA YRW 2A01 A59C 011430 LDA MVE 2A03 20FE27 011440 JSR FND1A 2A06 A58F 011450 LDA XCL 2A08 8595 011460 STA MNX 2A0A A590 011470 LDA YRW 2A0C 8596 011480 STA MNY 2A0E 4C302A 011490 JMP SW 2A11 011500 MN14 2A11 A59B 011510 LDA TRGR 2A13 C900 011520 CMP #0 2A15 F0E2 011530 BEQ MN13 2A17 A599 011540 LDA STK 2A19 C900 011550 CMP #0 2A1B D003 011560 BNE MN15 2A1D 4CF929 011570 JMP MN13 2A20 011580 MN15 2A20 A59C 011590 LDA MVE 2A22 202B28 011600 JSR REVERS 2A25 C599 011610 CMP STK 2A27 D004 011620 BNE MN16 2A29 A599 011630 LDA STK 2A2B 859C 011640 STA MVE 2A2D 011650 MN16 2A2D 4CF929 011660 JMP MN13 011670 ; 011680 ; Display Man on screen 011690 ; 2A30 011700 SW 2A30 A59C 011710 LDA MVE 2A32 C900 011720 CMP #0 2A34 F025 011730 BEQ SW4 2A36 A5B0 011740 LDA SHOMN 2A38 2980 011750 AND #128 2A3A C900 011760 CMP #0 2A3C F010 011770 BEQ SW2 2A3E A5B0 011780 LDA SHOMN 2A40 18 011790 CLC 2A41 6912 011800 ADC #18 2A43 C9DA 011810 CMP #218 2A45 D002 011820 BNE SW1 2A47 A948 011830 LDA #72 2A49 011840 SW1 2A49 85B0 011850 STA SHOMN 2A4B 4C5B2A 011860 JMP SW4 2A4E 011870 SW2 2A4E A5B0 011880 LDA SHOMN 2A50 38 011890 SEC 2A51 E912 011900 SBC #18 2A53 C9EE 011910 CMP #238 2A55 D002 011920 BNE SW3 PAGE 22 D1:DUNGEN1.M65 2A57 A980 011930 LDA #128 2A59 011940 SW3 2A59 85B0 011950 STA SHOMN 2A5B 011960 SW4 2A5B A920 011970 LDA #32 2A5D 8580 011980 STA LOA 2A5F A93C 011990 LDA #60 2A61 8581 012000 STA HIA 2A63 A59C 012010 LDA MVE 2A65 C908 012020 CMP #8 2A67 D008 012030 BNE SW5 2A69 A960 012040 LDA #96 2A6B 8582 012050 STA LO 2A6D A937 012060 LDA #55 2A6F 8583 012070 STA HI 2A71 012080 SW5 2A71 C904 012090 CMP #4 2A73 D008 012100 BNE SW6 2A75 A900 012110 LDA #0 2A77 8582 012120 STA LO 2A79 A934 012130 LDA #52 2A7B 8583 012140 STA HI 2A7D 012150 SW6 2A7D C902 012160 CMP #2 2A7F D008 012170 BNE SW7 2A81 012180 SW6A 2A81 A920 012190 LDA #32 2A83 8582 012200 STA LO 2A85 A935 012210 LDA #53 2A87 8583 012220 STA HI 2A89 012230 SW7 2A89 C901 012240 CMP #1 2A8B D008 012250 BNE SW8 2A8D A940 012260 LDA #64 2A8F 8582 012270 STA LO 2A91 A936 012280 LDA #54 2A93 8583 012290 STA HI 2A95 012300 SW8 2A95 C900 012310 CMP #0 2A97 D003 012320 BNE SW9 2A99 4C812A 012330 JMP SW6A 2A9C 012340 SW9 2A9C A5B0 012350 LDA SHOMN 2A9E 297F 012360 AND #127 2AA0 18 012370 CLC 2AA1 6582 012380 ADC LO 2AA3 9002 012390 BCC SW10 2AA5 E683 012400 INC HI 2AA7 012410 SW10 2AA7 8582 012420 STA LO 2AA9 A580 012430 LDA LOA 2AAB 18 012440 CLC 2AAC 6596 012450 ADC MNY 2AAE 9002 012460 BCC SW11 2AB0 E681 012470 INC HIA 2AB2 012480 SW11 2AB2 8580 012490 STA LOA 2AB4 A200 012500 LDX #0 PAGE 23 D1:DUNGEN1.M65 2AB6 012510 SW12 2AB6 A000 012520 LDY #0 2AB8 012530 SW13 2AB8 B182 012540 LDA (LO),Y 2ABA 9180 012550 STA (LOA),Y 2ABC C8 012560 INY 2ABD C012 012570 CPY #18 2ABF D0F7 012580 BNE SW13 2AC1 A582 012590 LDA LO 2AC3 18 012600 CLC 2AC4 695A 012610 ADC #90 2AC6 9002 012620 BCC SW14 2AC8 E683 012630 INC HI 2ACA 012640 SW14 2ACA 8582 012650 STA LO 2ACC E681 012660 INC HIA 2ACE E8 012670 INX 2ACF E003 012680 CPX #3 2AD1 D0E3 012690 BNE SW12 2AD3 60 012700 RTS 2AD4 012710 PCLR 2AD4 A920 012720 LDA #32 2AD6 8580 012730 STA LOA 2AD8 A93C 012740 LDA #60 2ADA 8581 012750 STA HIA 2ADC A200 012760 LDX #0 2ADE 8E1ED0 012770 STX 53278 2AE1 012780 PC1 2AE1 A000 012790 LDY #0 2AE3 A900 012800 LDA #0 2AE5 012810 PC2 2AE5 9180 012820 STA (LOA),Y 2AE7 C8 012830 INY 2AE8 C0AA 012840 CPY #170 2AEA D0F9 012850 BNE PC2 2AEC E681 012860 INC HIA 2AEE E8 012870 INX 2AEF E003 012880 CPX #3 2AF1 D0EE 012890 BNE PC1 2AF3 60 012900 RTS 012910 ; 012920 ; Move Monsters Around 012930 ; 2AF4 012940 H 2AF4 A900 012950 LDA #0 2AF6 8589 012960 STA V4 2AF8 B5B8 012970 LDA BDX,X 2AFA 38 012980 SEC 2AFB C597 012990 CMP MNXA 2AFD 900C 013000 BCC H1 2AFF 38 013010 SEC 2B00 E597 013020 SBC MNXA 2B02 8586 013030 STA V1 2B04 A904 013040 LDA #4 2B06 85A4 013050 STA TXY 2B08 4C162B 013060 JMP H2 2B0B 013070 H1 2B0B A597 013080 LDA MNXA PAGE 24 D1:DUNGEN1.M65 2B0D 38 013090 SEC 2B0E F5B8 013100 SBC BDX,X 2B10 8586 013110 STA V1 2B12 A908 013120 LDA #8 2B14 85A4 013130 STA TXY 2B16 013140 H2 2B16 B5D8 013150 LDA BDY,X 2B18 38 013160 SEC 2B19 C598 013170 CMP MNYA 2B1B 900F 013180 BCC H3 2B1D 38 013190 SEC 2B1E E598 013200 SBC MNYA 2B20 8587 013210 STA V2 2B22 A5A4 013220 LDA TXY 2B24 18 013230 CLC 2B25 6901 013240 ADC #1 2B27 85A4 013250 STA TXY 2B29 4C3A2B 013260 JMP H4 2B2C 013270 H3 2B2C A598 013280 LDA MNYA 2B2E 38 013290 SEC 2B2F F5D8 013300 SBC BDY,X 2B31 8587 013310 STA V2 2B33 A5A4 013320 LDA TXY 2B35 18 013330 CLC 2B36 6902 013340 ADC #2 2B38 85A4 013350 STA TXY 2B3A 013360 H4 2B3A A587 013370 LDA V2 2B3C 38 013380 SEC 2B3D C586 013390 CMP V1 2B3F B023 013400 BCS H8 2B41 013410 H5 2B41 A90C 013420 LDA #12 2B43 858A 013430 STA V5 2B45 20D32B 013440 JSR CK 2B48 C901 013450 CMP #1 2B4A D003 013460 BNE H6 2B4C 4C8A2B 013470 JMP H11 2B4F 013480 H6 2B4F A903 013490 LDA #3 2B51 858A 013500 STA V5 2B53 20D32B 013510 JSR CK 2B56 C901 013520 CMP #1 2B58 D003 013530 BNE H7 2B5A 4C8A2B 013540 JMP H11 2B5D 013550 H7 2B5D A5A4 013560 LDA TXY 2B5F 202B28 013570 JSR REVERS 2B62 85A4 013580 STA TXY 2B64 013590 H8 2B64 A903 013600 LDA #3 2B66 858A 013610 STA V5 2B68 20D32B 013620 JSR CK 2B6B C901 013630 CMP #1 2B6D D003 013640 BNE H9 2B6F 4C8A2B 013650 JMP H11 2B72 013660 H9 PAGE 25 D1:DUNGEN1.M65 2B72 A90C 013670 LDA #12 2B74 858A 013680 STA V5 2B76 20D32B 013690 JSR CK 2B79 C901 013700 CMP #1 2B7B D003 013710 BNE H10 2B7D 4C8A2B 013720 JMP H11 2B80 013730 H10 2B80 A5A4 013740 LDA TXY 2B82 202B28 013750 JSR REVERS 2B85 85A4 013760 STA TXY 2B87 4C412B 013770 JMP H5 2B8A 013780 H11 2B8A B5B8 013790 LDA BDX,X 2B8C 858F 013800 STA XCL 2B8E B5D8 013810 LDA BDY,X 2B90 8590 013820 STA YRW 2B92 BD0006 013830 LDA BDXY,X 2B95 20FE27 013840 JSR FND1A 2B98 A58F 013850 LDA XCL 2B9A 95B8 013860 STA BDX,X 2B9C A590 013870 LDA YRW 2B9E 95D8 013880 STA BDY,X 2BA0 60 013890 RTS 2BA1 013900 RANDOM 2BA1 A900 013910 LDA #0 2BA3 8589 013920 STA V4 2BA5 AD0AD2 013930 LDA 53770 2BA8 2903 013940 AND #3 2BAA C900 013950 CMP #0 2BAC D002 013960 BNE RM1 2BAE A005 013970 LDY #5 2BB0 013980 RM1 2BB0 C901 013990 CMP #1 2BB2 D002 014000 BNE RM2 2BB4 A009 014010 LDY #9 2BB6 014020 RM2 2BB6 C902 014030 CMP #2 2BB8 D002 014040 BNE RM3 2BBA A006 014050 LDY #6 2BBC 014060 RM3 2BBC C903 014070 CMP #3 2BBE D002 014080 BNE RM4 2BC0 A00A 014090 LDY #10 2BC2 014100 RM4 2BC2 84A4 014110 STY TXY 2BC4 AD0AD2 014120 LDA 53770 2BC7 2901 014130 AND #1 2BC9 C900 014140 CMP #0 2BCB F003 014150 BEQ RM5 2BCD 4C412B 014160 JMP H5 2BD0 014170 RM5 2BD0 4C642B 014180 JMP H8 2BD3 014190 CK 2BD3 A900 014200 LDA #0 2BD5 85A5 014210 STA JUMP 2BD7 E689 014220 INC V4 2BD9 A904 014230 LDA #4 2BDB 38 014240 SEC PAGE 26 D1:DUNGEN1.M65 2BDC C589 014250 CMP V4 2BDE 9010 014260 BCC CK1 2BE0 BD0006 014270 LDA BDXY,X 2BE3 202B28 014280 JSR REVERS 2BE6 8588 014290 STA V3 2BE8 A5A4 014300 LDA TXY 2BEA 258A 014310 AND V5 2BEC C588 014320 CMP V3 2BEE F037 014330 BEQ CK2 2BF0 014340 CK1 2BF0 B5B8 014350 LDA BDX,X 2BF2 858F 014360 STA XCL 2BF4 B5D8 014370 LDA BDY,X 2BF6 8590 014380 STA YRW 2BF8 A5A4 014390 LDA TXY 2BFA 258A 014400 AND V5 2BFC 20FB27 014410 JSR FND 2BFF 202926 014420 JSR X96 2C02 B180 014430 LDA (LOA),Y 2C04 C900 014440 CMP #0 2C06 F014 014450 BEQ C3 2C08 38 014460 SEC 2C09 C9A6 014470 CMP #166 2C0B 9005 014480 BCC CA 2C0D 38 014490 SEC 2C0E C9C1 014500 CMP #193 2C10 9015 014510 BCC CK2 2C12 014520 CA 2C12 38 014530 SEC 2C13 C937 014540 CMP #55 2C15 9010 014550 BCC CK2 2C17 38 014560 SEC 2C18 C9E7 014570 CMP #231 2C1A B00B 014580 BCS CK2 2C1C 014590 C3 2C1C A901 014600 LDA #1 2C1E 85A5 014610 STA JUMP 2C20 A5A4 014620 LDA TXY 2C22 258A 014630 AND V5 2C24 9D0006 014640 STA BDXY,X 2C27 014650 CK2 2C27 A5A5 014660 LDA JUMP 2C29 60 014670 RTS 2C2A 014680 BT 2C2A A900 014690 LDA #0 2C2C 85A6 014700 STA CNTR 2C2E A6A7 014710 LDX XCNT 2C30 014720 B1 2C30 BD4006 014730 LDA ALV,X 2C33 C900 014740 CMP #0 2C35 D041 014750 BNE BT1 2C37 AD0AD2 014760 LDA 53770 2C3A 38 014770 SEC 2C3B C5B1 014780 CMP LVL 2C3D 9003 014790 BCC B1A 2C3F 4C382D 014800 JMP B12 2C42 014810 B1A 2C42 A5B3 014820 LDA NOW PAGE 27 D1:DUNGEN1.M65 2C44 38 014830 SEC 2C45 C980 014840 CMP #128 2C47 B003 014850 BCS B1T 2C49 4C382D 014860 JMP B12 2C4C 014870 B1T 2C4C AD0AD2 014880 LDA 53770 2C4F 2901 014890 AND #1 2C51 C901 014900 CMP #1 2C53 F018 014910 BEQ BT0 2C55 A59D 014920 LDA GX1 2C57 95B8 014930 STA BDX,X 2C59 A59E 014940 LDA GY1 2C5B 95D8 014950 STA BDY,X 2C5D 014960 BTA 2C5D A5B1 014970 LDA LVL 2C5F 2D0AD2 014980 AND 53770 2C62 2903 014990 AND #3 2C64 18 015000 CLC 2C65 6901 015010 ADC #1 2C67 9D4006 015020 STA ALV,X 2C6A 4C782C 015030 JMP BT1 2C6D 015040 BT0 2C6D A59F 015050 LDA GX2 2C6F 95B8 015060 STA BDX,X 2C71 A5A0 015070 LDA GY2 2C73 95D8 015080 STA BDY,X 2C75 4C5D2C 015090 JMP BTA 2C78 015100 BT1 2C78 B5D8 015110 LDA BDY,X 2C7A 8590 015120 STA YRW 2C7C B5B8 015130 LDA BDX,X 2C7E 858F 015140 STA XCL 2C80 20CA28 015150 JSR CLR 2C83 B5B8 015160 LDA BDX,X 2C85 2901 015170 AND #1 2C87 C900 015180 CMP #0 2C89 F003 015190 BEQ BT2 2C8B 4C902D 015200 JMP B14 2C8E 015210 BT2 2C8E B5D8 015220 LDA BDY,X 2C90 2901 015230 AND #1 2C92 C900 015240 CMP #0 2C94 F003 015250 BEQ BT3 2C96 4C902D 015260 JMP B14 015270 ; 015280 ; If Monster can see Man, 015290 ; have all Monsters find 015300 ; their way to where Man 015310 ; was seen last. 015320 ; 2C99 015330 BT3 2C99 B5B8 015340 LDA BDX,X 2C9B C593 015350 CMP XPOS 2C9D D039 015360 BNE BT5 2C9F B5D8 015370 LDA BDY,X 2CA1 38 015380 SEC 2CA2 C58D 015390 CMP V8 2CA4 9032 015400 BCC BT5 PAGE 28 D1:DUNGEN1.M65 2CA6 38 015410 SEC 2CA7 C58E 015420 CMP V9 2CA9 B02D 015430 BCS BT5 2CAB A594 015440 LDA YPOS 2CAD 38 015450 SEC 2CAE D5D8 015460 CMP BDY,X 2CB0 900A 015470 BCC BT6 2CB2 BD0006 015480 LDA BDXY,X 2CB5 C901 015490 CMP #1 2CB7 F01F 015500 BEQ BT5 2CB9 4CC32C 015510 JMP B7 2CBC 015520 BT6 2CBC BD0006 015530 LDA BDXY,X 2CBF C902 015540 CMP #2 2CC1 F015 015550 BEQ BT5 2CC3 015560 B7 2CC3 A901 015570 LDA #1 2CC5 85AC 015580 STA SPOT 2CC7 85AD 015590 STA SPOT2 2CC9 A000 015600 LDY #0 2CCB A901 015610 LDA #1 2CCD 015620 BT4 2CCD 992006 015630 STA BDG,Y 2CD0 C8 015640 INY 2CD1 C020 015650 CPY #32 2CD3 D0F8 015660 BNE BT4 2CD5 4C052D 015670 JMP B9 2CD8 015680 BT5 2CD8 B5D8 015690 LDA BDY,X 2CDA C594 015700 CMP YPOS 2CDC D027 015710 BNE B9 2CDE B5B8 015720 LDA BDX,X 2CE0 38 015730 SEC 2CE1 C58B 015740 CMP V6 2CE3 9020 015750 BCC B9 2CE5 38 015760 SEC 2CE6 C58C 015770 CMP V7 2CE8 B01B 015780 BCS B9 2CEA A593 015790 LDA XPOS 2CEC 38 015800 SEC 2CED D5B8 015810 CMP BDX,X 2CEF 900A 015820 BCC B8 2CF1 BD0006 015830 LDA BDXY,X 2CF4 C904 015840 CMP #4 2CF6 F00D 015850 BEQ B9 2CF8 4CC32C 015860 JMP B7 2CFB 015870 B8 2CFB BD0006 015880 LDA BDXY,X 2CFE C908 015890 CMP #8 2D00 F003 015900 BEQ B9 2D02 4CC32C 015910 JMP B7 2D05 015920 B9 2D05 B5B8 015930 LDA BDX,X 2D07 C597 015940 CMP MNXA 2D09 D00B 015950 BNE B10 2D0B B5D8 015960 LDA BDY,X 2D0D C598 015970 CMP MNYA 2D0F D005 015980 BNE B10 PAGE 29 D1:DUNGEN1.M65 2D11 A900 015990 LDA #0 2D13 9D2006 016000 STA BDG,X 2D16 016010 B10 2D16 A5AC 016020 LDA SPOT 2D18 C900 016030 CMP #0 2D1A F00C 016040 BEQ B10A 2D1C A5AD 016050 LDA SPOT2 2D1E 85AC 016060 STA SPOT 2D20 A593 016070 LDA XPOS 2D22 8597 016080 STA MNXA 2D24 A594 016090 LDA YPOS 2D26 8598 016100 STA MNYA 2D28 016110 B10A 2D28 BD2006 016120 LDA BDG,X 2D2B C901 016130 CMP #1 2D2D D006 016140 BNE B11 2D2F 20F42A 016150 JSR H 2D32 4C382D 016160 JMP B12 2D35 016170 B11 2D35 20A12B 016180 JSR RANDOM 2D38 016190 B12 2D38 A900 016200 LDA #0 2D3A 8587 016210 STA V2 2D3C 016220 B12A 2D3C BD4006 016230 LDA ALV,X 2D3F C900 016240 CMP #0 2D41 F036 016250 BEQ B15 2D43 C901 016260 CMP #1 2D45 D005 016270 BNE B16 2D47 A938 016280 LDA #56 2D49 4C572D 016290 JMP B20 2D4C 016300 B16 2D4C C902 016310 CMP #2 2D4E D005 016320 BNE B17 2D50 A9C8 016330 LDA #200 2D52 4C572D 016340 JMP B20 2D55 016350 B17 2D55 A9D8 016360 LDA #216 2D57 016370 B20 2D57 8586 016380 STA V1 2D59 BD0006 016390 LDA BDXY,X 2D5C 2908 016400 AND #8 2D5E C908 016410 CMP #8 2D60 D007 016420 BNE B21 2D62 A586 016430 LDA V1 2D64 18 016440 CLC 2D65 6904 016450 ADC #4 2D67 8586 016460 STA V1 2D69 016470 B21 2D69 B5B8 016480 LDA BDX,X 2D6B 858F 016490 STA XCL 2D6D B5D8 016500 LDA BDY,X 2D6F 8590 016510 STA YRW 2D71 A586 016520 LDA V1 2D73 18 016530 CLC 2D74 6587 016540 ADC V2 2D76 201E25 016550 JSR W91 2D79 016560 B15 PAGE 30 D1:DUNGEN1.M65 2D79 E8 016570 INX 2D7A E020 016580 CPX #32 2D7C D004 016590 BNE BAZ 2D7E A200 016600 LDX #0 2D80 86AD 016610 STX SPOT2 2D82 016620 BAZ 2D82 E6A6 016630 INC CNTR 2D84 A908 016640 LDA #8 2D86 C5A6 016650 CMP CNTR 2D88 F003 016660 BEQ B13 2D8A 4C302C 016670 JMP B1 2D8D 016680 B13 2D8D 86A7 016690 STX XCNT 2D8F 60 016700 RTS 2D90 016710 B14 2D90 208A2B 016720 JSR H11 2D93 A908 016730 LDA #8 2D95 8587 016740 STA V2 2D97 4C3C2D 016750 JMP B12A 016760 ; 016770 ; SHOOT 016780 ; 2D9A 016790 SHT 2D9A AD00D3 016800 LDA 54016 2D9D 4A 016810 LSR A 2D9E 4A 016820 LSR A 2D9F 4A 016830 LSR A 2DA0 4A 016840 LSR A 2DA1 8586 016850 STA V1 2DA3 290C 016860 AND #12 2DA5 490C 016870 EOR #12 2DA7 C900 016880 CMP #0 2DA9 F005 016890 BEQ SHTB 2DAB 859A 016900 STA STK1 2DAD 4CD32D 016910 JMP S1 2DB0 016920 SHTB 2DB0 A586 016930 LDA V1 2DB2 2903 016940 AND #3 2DB4 4903 016950 EOR #3 2DB6 C900 016960 CMP #0 2DB8 F005 016970 BEQ SHTA 2DBA 859A 016980 STA STK1 2DBC 4CD32D 016990 JMP S1 2DBF 017000 SHTA 2DBF A599 017010 LDA STK 2DC1 859A 017020 STA STK1 2DC3 AD10D0 017030 LDA 53264 2DC6 859B 017040 STA TRGR 2DC8 C900 017050 CMP #0 2DCA F007 017060 BEQ S1 2DCC A5A3 017070 LDA BLTXY 2DCE C900 017080 CMP #0 2DD0 D028 017090 BNE S3 2DD2 60 017100 RTS 2DD3 017110 S1 2DD3 A5A3 017120 LDA BLTXY 2DD5 C900 017130 CMP #0 2DD7 F003 017140 BEQ S2 PAGE 31 D1:DUNGEN1.M65 2DD9 4CFA2D 017150 JMP S3 2DDC 017160 S2 2DDC A59A 017170 LDA STK1 2DDE C900 017180 CMP #0 2DE0 D001 017190 BNE S2A 2DE2 60 017200 RTS 2DE3 017210 S2A 2DE3 A593 017220 LDA XPOS 2DE5 85A1 017230 STA BLTX 2DE7 A594 017240 LDA YPOS 2DE9 85A2 017250 STA BLTY 2DEB A59A 017260 LDA STK1 2DED 85A3 017270 STA BLTXY 2DEF 204528 017280 JSR PLY 2DF2 A9C0 017290 LDA #192 2DF4 8584 017300 STA LOC 2DF6 A988 017310 LDA #136 2DF8 85AA 017320 STA PLAY 2DFA 017330 S3 2DFA A5A1 017340 LDA BLTX 2DFC 858F 017350 STA XCL 2DFE A5A2 017360 LDA BLTY 2E00 8590 017370 STA YRW 2E02 202926 017380 JSR X96 2E05 A900 017390 LDA #0 2E07 9180 017400 STA (LOA),Y 2E09 A5A3 017410 LDA BLTXY 2E0B 20FE27 017420 JSR FND1A 2E0E 202926 017430 JSR X96 2E11 B180 017440 LDA (LOA),Y 2E13 C900 017450 CMP #0 2E15 F007 017460 BEQ S4 2E17 A900 017470 LDA #0 2E19 85A3 017480 STA BLTXY 2E1B 4C2A2E 017490 JMP S45 2E1E 017500 S4 2E1E A937 017510 LDA #55 2E20 9180 017520 STA (LOA),Y 2E22 A58F 017530 LDA XCL 2E24 85A1 017540 STA BLTX 2E26 A590 017550 LDA YRW 2E28 85A2 017560 STA BLTY 2E2A 017570 S45 2E2A A000 017580 LDY #0 2E2C A58F 017590 LDA XCL 2E2E 8591 017600 STA CLX 2E30 A590 017610 LDA YRW 2E32 8592 017620 STA RWY 2E34 017630 S5 2E34 A591 017640 LDA CLX 2E36 858F 017650 STA XCL 2E38 A592 017660 LDA RWY 2E3A 8590 017670 STA YRW 2E3C B9B800 017680 LDA BDX,Y 2E3F 8586 017690 STA V1 2E41 A58F 017700 LDA XCL 2E43 C586 017710 CMP V1 2E45 F007 017720 BEQ S5A PAGE 32 D1:DUNGEN1.M65 2E47 38 017730 SEC 2E48 E901 017740 SBC #1 2E4A C586 017750 CMP V1 2E4C D03F 017760 BNE S6 2E4E 017770 S5A 2E4E B9D800 017780 LDA BDY,Y 2E51 8586 017790 STA V1 2E53 A590 017800 LDA YRW 2E55 C586 017810 CMP V1 2E57 F007 017820 BEQ S5B 2E59 38 017830 SEC 2E5A E901 017840 SBC #1 2E5C C586 017850 CMP V1 2E5E D02D 017860 BNE S6 2E60 017870 S5B 2E60 B94006 017880 LDA ALV,Y 2E63 C900 017890 CMP #0 2E65 F026 017900 BEQ S6 2E67 A900 017910 LDA #0 2E69 994006 017920 STA ALV,Y 2E6C 204528 017930 JSR PLY 2E6F A988 017940 LDA #136 2E71 85AA 017950 STA PLAY 2E73 A9D8 017960 LDA #216 2E75 8584 017970 STA LOC 2E77 A206 017980 LDX #6 2E79 20DE28 017990 JSR SCR 2E7C B9B800 018000 LDA BDX,Y 2E7F 858F 018010 STA XCL 2E81 B9D800 018020 LDA BDY,Y 2E84 8590 018030 STA YRW 2E86 848A 018040 STY V5 2E88 20CA28 018050 JSR CLR 2E8B A48A 018060 LDY V5 2E8D 018070 S6 2E8D C8 018080 INY 2E8E C020 018090 CPY #32 2E90 D0A2 018100 BNE S5 2E92 60 018110 RTS 018120 ; 018130 ; Check speed to determine 018140 ; when to move the Monsters 018150 ; 2E93 018160 Q 2E93 A5A8 018170 LDA TIMES 2E95 18 018180 CLC 2E96 65A9 018190 ADC SPEED 2E98 85A8 018200 STA TIMES 2E9A 38 018210 SEC 2E9B C90B 018220 CMP #11 2E9D B001 018230 BCS Q1 2E9F 60 018240 RTS 2EA0 018250 Q1 2EA0 38 018260 SEC 2EA1 E90C 018270 SBC #12 2EA3 85A8 018280 STA TIMES 2EA5 208626 018290 JSR ST 2EA8 202A2C 018300 JSR BT PAGE 33 D1:DUNGEN1.M65 2EAB 60 018310 RTS 2EAC 018320 LP 2EAC 20B427 018330 JSR INT2 2EAF 20A923 018340 JSR W 2EB2 A99D 018350 LDA #157 2EB4 8D9838 018360 STA SCRS+10 2EB7 8D9938 018370 STA SCRS+11 2EBA A903 018380 LDA #3 2EBC 85B2 018390 STA LIVES 2EBE A20B 018400 LDX #11 2EC0 20DE28 018410 JSR SCR 2EC3 206023 018420 JSR ITA 2EC6 A900 018430 LDA #0 2EC8 8D1ED0 018440 STA 53278 018450 ; 018460 ; MAIN CONTROL LOOP OF PROGRAM 018470 ; 2ECB 018480 LP2 2ECB AD05D0 018490 LDA 53253 2ECE 2906 018500 AND #6 2ED0 C900 018510 CMP #0 2ED2 F051 018520 BEQ LP5 2ED4 C6B2 018530 DEC LIVES 2ED6 A98A 018540 LDA #138 2ED8 8D01D2 018550 STA 53761 2EDB 8514 018560 STA 20 2EDD 018570 LPT 2EDD A514 018580 LDA 20 2EDF 8D00D2 018590 STA 53760 2EE2 C9FF 018600 CMP #255 2EE4 D0F7 018610 BNE LPT 2EE6 A900 018620 LDA #0 2EE8 8D01D2 018630 STA 53761 2EEB C5B2 018640 CMP LIVES 2EED D033 018650 BNE LP6 2EEF A200 018660 LDX #0 2EF1 018670 LPQ 2EF1 BD8E38 018680 LDA SCRS,X 2EF4 38 018690 SEC 2EF5 E90D 018700 SBC #13 2EF7 9D0739 018710 STA 14599,X 2EFA E8 018720 INX 2EFB E007 018730 CPX #7 2EFD D0F2 018740 BNE LPQ 2EFF 20D42A 018750 JSR PCLR 2F02 A9E0 018760 LDA #224 2F04 8DF402 018770 STA 756 2F07 A947 018780 LDA #71 2F09 8D3002 018790 STA 560 2F0C A922 018800 LDA #34 2F0E 8D3102 018810 STA 561 2F11 A900 018820 LDA #0 2F13 8DC402 018830 STA 708 2F16 8513 018840 STA 19 2F18 8DC502 018850 STA 709 2F1B 018860 LPR 2F1B A513 018870 LDA 19 2F1D C903 018880 CMP #3 PAGE 34 D1:DUNGEN1.M65 2F1F D0FA 018890 BNE LPR 2F21 60 018900 RTS 2F22 018910 LP6 2F22 206023 018920 JSR ITA 2F25 018930 LP5 2F25 201B29 018940 JSR MN 2F28 E6B3 018950 INC NOW 2F2A A900 018960 LDA #0 2F2C 854D 018970 STA 77 2F2E 8D1ED0 018980 STA 53278 2F31 A514 018990 LDA 20 2F33 38 019000 SEC 2F34 C908 019010 CMP #8 2F36 901A 019020 BCC Q9 2F38 A900 019030 LDA #0 2F3A 8514 019040 STA 20 2F3C A4AB 019050 LDY SNGX 2F3E C000 019060 CPY #0 2F40 F010 019070 BEQ Q9 2F42 88 019080 DEY 2F43 84AB 019090 STY SNGX 2F45 B184 019100 LDA (LOC),Y 2F47 8D00D2 019110 STA 53760 2F4A A6AA 019120 LDX PLAY 2F4C CA 019130 DEX 2F4D 86AA 019140 STX PLAY 2F4F 8E01D2 019150 STX 53761 2F52 019160 Q9 2F52 209A2D 019170 JSR SHT 2F55 20932E 019180 JSR Q 2F58 20932E 019190 JSR Q 2F5B A220 019200 LDX #32 2F5D 019210 LP4 2F5D A020 019220 LDY #32 2F5F 019230 LP3 2F5F 88 019240 DEY 2F60 C4A9 019250 CPY SPEED 2F62 D0FB 019260 BNE LP3 2F64 CA 019270 DEX 2F65 E4A9 019280 CPX SPEED 2F67 D0F4 019290 BNE LP4 2F69 A5AE 019300 LDA OVER 2F6B C900 019310 CMP #0 2F6D F042 019320 BEQ LP1 2F6F E6B1 019330 INC LVL 2F71 A20B 019340 LDX #11 2F73 20DE28 019350 JSR SCR 2F76 A900 019360 LDA #0 2F78 8D2F02 019370 STA 559 2F7B 20A923 019380 JSR W 2F7E A5B1 019390 LDA LVL 2F80 2903 019400 AND #3 2F82 C901 019410 CMP #1 2F84 D021 019420 BNE LPJ 2F86 A9AA 019430 LDA #170 2F88 8D01D2 019440 STA 53761 2F8B A9E8 019450 LDA #232 2F8D 8584 019460 STA LOC PAGE 35 D1:DUNGEN1.M65 2F8F A000 019470 LDY #0 2F91 84AB 019480 STY SNGX 2F93 019490 LPH 2F93 A900 019500 LDA #0 2F95 8514 019510 STA 20 2F97 B184 019520 LDA (LOC),Y 2F99 8D00D2 019530 STA 53760 2F9C 019540 LPI 2F9C A514 019550 LDA 20 2F9E C90A 019560 CMP #10 2FA0 D0FA 019570 BNE LPI 2FA2 C8 019580 INY 2FA3 C015 019590 CPY #21 2FA5 D0EC 019600 BNE LPH 2FA7 019610 LPJ 2FA7 A97E 019620 LDA #126 2FA9 8D2F02 019630 STA 559 2FAC A203 019640 LDX #3 2FAE 20DE28 019650 JSR SCR 2FB1 019660 LP1 2FB1 4CCB2E 019670 JMP LP2 019680 ; 019690 ; The Display List 019700 ; starts at: $2FB4. 019710 ; 019720 ; A redefined Character 019730 ; Set starts at: $3000. 019740 ; 019750 ; Miscellaneous data fills 019760 ; locations $33C0 through 019770 ; $3881. 019780 ; 019790 ; PMBASE is located at $3800. 019800 ; 019810 ; The Action Screen is 019820 ; located at $4000. 019830 ; 2FB4 019840 .END ASSEMBLY ERRORS: 0 25753 BYTES FREE PAGE 36 SYMBOLS D1:DUNGEN1.M65 27D3 AGN 27B8 AGN2 =0640 ALV 2C30 B1 2D16 B10 2D28 B10A 2D35 B11 2D38 B12 2D3C B12A 2D8D B13 2D90 B14 2D79 B15 2D4C B16 2D55 B17 2C42 B1A 2C4C B1T 2D57 B20 2D69 B21 2CC3 B7 2CFB B8 2D05 B9 2D82 BAZ =0620 BDG =00B8 BDX =0600 BDXY =00D8 BDY =00A1 BLTX =00A3 BLTXY =00A2 BLTY 2C2A BT 2C6D BT0 2C78 BT1 2C8E BT2 2C99 BT3 2CCD BT4 2CD8 BT5 2CBC BT6 2C5D BTA 2C1C C3 2C12 CA 2BD3 CK 2BF0 CK1 2C27 CK2 28CA CLR =0091 CLX =00A6 CNTR =00B7 DHI =2FB4 DLIST =00B6 DLO 287E FDH 2899 FDI 2862 FDK 2869 FDL 289C FDP 284A FDT 27FB FND 2809 FND1 27FE FND1A 280F FND2 2818 FND3 2822 FND4 2828 FND5 2727 GR 276C GR2 =009D GX1 =009F GX2 =009E GY1 =00A0 GY2 2AF4 H 2B0B H1 2B80 H10 2B8A H11 2B16 H2 2B2C H3 2B3A H4 2B41 H5 2B4F H6 2B5D H7 2B64 H8 2B72 H9 =0083 HI =0081 HIA =0085 HIC 27AB INT 27B4 INT2 2380 IT 2360 ITA 236A ITB 2371 ITC 2398 ITD 237A ITE 2366 ITF =00A5 JUMP =00AF KEY 2637 L1 2644 L2 2653 L3 2668 L4 267A L5 2681 L6 =00B2 LIVES =0082 LO =0080 LOA =0084 LOC 2EAC LP 2FB1 LP1 2ECB LP2 2F5F LP3 2F5D LP4 2F25 LP5 2F22 LP6 2F93 LPH 2F9C LPI 2FA7 LPJ 2EF1 LPQ 2F1B LPR 2EDD LPT 2617 LTW =00B1 LVL 291B MN 2944 MN1 29D8 MN10 29DE MN11 29E5 MN11A 29F5 MN12 29F9 MN13 2A11 MN14 2A20 MN15 2A2D MN16 294D MN2 2960 MN3 2974 MN4 2999 MN5 29A0 MN6 29B1 MN7 29CA MN8 29D1 MN9 29AD MNA =0095 MNX =0097 MNXA =0096 MNY =0098 MNYA =009C MVE =00B3 NOW 27E7 NXT =00AE OVER 2AE1 PC1 2AE5 PC2 2AD4 PCLR =00AA PLAY 2845 PLY 25F7 PTW 2E93 Q 2EA0 Q1 2F52 Q9 2BA1 RANDOM 282B REVERS 2BB0 RM1 2BB6 RM2 2BBC RM3 2BC2 RM4 2BD0 RM5 22CE RPT 22D0 RPTA 2620 RTW 2835 RVS1 2841 RVS2 =0092 RWY 2DD3 S1 2DDC S2 2DE3 S2A 2DFA S3 2E1E S4 2E2A S45 2E34 S5 2E4E S5A 2E60 S5B 2E8D S6 28DE SCR 28E2 SCR1 2912 SCR2 2915 SCR3 2900 SCR4 =388E SCRS =E45C SEVBV =00B0 SHOMN 2D9A SHT 2DBF SHTA 2DB0 SHTB =00AB SNGX =00A9 SPEED =00AC SPOT =00AD SPOT2 233B SRT 2686 ST 268F ST2 PAGE 37 SYMBOLS D1:DUNGEN1.M65 26A5 ST3 26BB ST4 26D1 ST5 2713 ST96 2719 ST97 2716 ST98 26DF ST99 =0099 STK =009A STK1 22F9 STR 231C STRT 2A30 SW 2A49 SW1 2AA7 SW10 2AB2 SW11 2AB6 SW12 2AB8 SW13 2ACA SW14 2A4E SW2 2A59 SW3 2A5B SW4 2A71 SW5 2A7D SW6 2A81 SW6A 2A89 SW7 2A95 SW8 2A9C SW9 =E45F SYSVBV =00A8 TIMES =009B TRGR =00A4 TXY =0086 V1 =0087 V2 =0088 V3 =0089 V4 =008A V5 =008B V6 =008C V7 =008D V8 =008E V9 27C5 VBK 23A9 W 23E3 W1 24D5 W10 24DF W11 2561 W12 256B W13 2577 W14 2584 W15 258F W16 25D3 W17 25D5 W18 25F6 W19 23E1 W2 259D W20 23FF W3 2500 W30 2540 W32 2518 W36 2509 W39 2417 W4 2516 W40 2581 W41 2464 W43 2466 W45 247C W46 2433 W49 248F W5 249A W6 24A5 W7 24C1 W8 24CB W9 251E W91 24F3 WGO 24A9 WLR 2546 WUP 2629 X96 =008F XCL =00A7 XCNT =0093 XPOS =0094 YPOS =0090 YRW 26FB Z1 26F6 Z2 2704 Z3 2706 Z4 292A ZX 2931 ZZ